home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / packet / terminal / top_152 / src152.exe / rar / TOPINI.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-16  |  11KB  |  432 lines
  1. {┌─────────────────────────────────────────────────────────────────────────┐}
  2. {│                                                                         │}
  3. {│                              T. O. P.                                   │}
  4. {│                                                                         │}
  5. {│                        (T)he  (O)ther  (P)acket                         │}
  6. {│                                                                         │}
  7. {│ T O P I N I . P A S                                                     │}
  8. {│                                                                         │}
  9. {│                                                                         │}
  10. {│ Initialisierung der globalen Variablen in TOPDEFS.PAS                   │}
  11. {└─────────────────────────────────────────────────────────────────────────┘}
  12.  
  13.  
  14. Procedure Var_INIT (* Kanal : Byte *);
  15. var   i,i1 : Integer;
  16. Begin
  17.   if Kanal <> 99 then
  18.   Begin
  19.     with K[Kanal]^ do    { Variablen eines jeden Kanals initialisieren }
  20.     Begin
  21.       NZeile := '';
  22.       ACZeile := '';
  23.       RxLRet := true;
  24.       TxLRet := true;
  25.       SvLRet := true;
  26.       OwnCall := '*';
  27.       Call := '         ';
  28.       connected := false;
  29.       Outside := true;
  30.       QSO_Date := '';
  31.       QSO_Begin := '';
  32.       QSO_End := '';
  33.       ConText := '';
  34.       LogMerker := '';
  35.       BeLogEintr := false;
  36.       SendZeile := '';
  37.       TxByte := 0;
  38.       Loesch := false;
  39.       Insert_ON := true;
  40.       Rx_Beep := false;
  41.       Echo := 0;
  42.       Cmd := false;
  43.       ObStat := 5;
  44.       if Kanal = 0 then UnStat := ObStat + 1
  45.                    else UnStat := maxZ - 3;
  46.       X2 := 1;
  47.       Response := '';
  48.       for i := 1 to 6 do L_Status[i] := 0;
  49.       FlagTxBeep := false;
  50.       TxBeepAck := false;
  51.       RxLines := 0;
  52.       RemPath := '';
  53.       RX_Bin := 0;
  54.       RX_Save := false;
  55.       Save := false;
  56.       SplSave := false;
  57.       Spl_Time := '';
  58.       Spl_Baud := 0;
  59.       Spl_UmlMerk := 0;
  60.       FileSend := false;
  61.       FileSendRem := false;
  62.       FileSendWait := false;
  63.       TX_Bin := 0;
  64.       TX_Time := '';
  65.       TX_Baud := 0;
  66.       Drucker := false;
  67.       Umlaut := 0;
  68.       UmlautMerk := 0;
  69.       NR_Stelle := 0;
  70.       ConnectMerk := '';
  71.       ACMerk := '';
  72.       Pause := 0;
  73.       Paclen := 230;
  74.       MaxFrame := 3;
  75.       TNCKanal := #0;
  76.       Kan_Char := #0;
  77.       TNC_Code := 0;
  78.       TNC_Count := 0;
  79.       Auto := true;
  80.       Auto_CON := false;
  81.       Ziel_Call := '';
  82.       Ignore := false;
  83.       NochNichtGelesen := false;
  84.       RemoteSave := false;
  85.       AnzLines := 0;
  86.       AnzNotiz := 0;
  87.       stV := 1;
  88.       Y1V := 1;
  89.       Y1C := 1;
  90.       X1V := 1;
  91.       X1C := 3;
  92.       NodeCon := false;
  93.       NodeCmd := false;
  94.       MerkInfo := '';
  95.       EinstiegsKanal := false;
  96.       AusstiegsKanal := false;
  97.       GegenKanal := 0;
  98.       Kanal_benutz := false;
  99.       RemConReady := false;
  100.       FoundCall := false;
  101.       Last_CR_Pos := 0;
  102.       unknown := false;
  103.       notRC := false;
  104.       ParmWrong := false;
  105.       Hold := false;
  106.       HoldStr := '';
  107.       HoldTime := 0;
  108.       RTF := false;
  109.       RunEscFlag := false;
  110.       Cself := 0;
  111.       AutoZeile := '';
  112.       Auto1Zeile := '';
  113.       AutoTime := '';
  114.       AutoZaehl := 0;
  115.       AutoJump := 0;
  116.       AutoZyConst := 0;
  117.       AutoZyCount := 0;
  118.       AutoToConst := 0;
  119.       AutoToCount := 0;
  120.       AutoToAnz := 0;
  121.       AutoToMax := 0;
  122.       AutoToAnzJmp := 0;
  123.       AutoWait := 0;
  124.       AutoChMerk := 0;
  125.       AutoArt := 0;
  126.       AutoCheckLn := false;
  127.       AutoJmpPtr := 1;
  128.       FillChar(AutoJmpRet,SizeOf(AutoJmpRet),0);
  129.       Test := false;
  130.       TestMerk := 0;
  131.       Priv_Modus := false;
  132.       RemAll := false;
  133.       SysopParm := false;
  134.       Priv_Errechnet := '';
  135.       SysopStr := '';
  136.       SysopArt := '';
  137.       FillChar(StatZeile,SizeOf(StatZeile),0);
  138.       Rekonnekt := false;
  139.       Now_Msg_holen := true;
  140.       MeldeCompZ := '';
  141.       MeldeZeile := '';
  142.       MldOk := 0;
  143.       EigMail := false;
  144.       MsgToMe := false;
  145.       TNC_Puffer := false;
  146.       NotPos := 0;
  147.       Einer_st := false;
  148.       for i := 1 to maxVorZeilen do stTX[i] := false;
  149.       for i := 0 to 3 do PagesNot[i] := 0;
  150.       PagesAnz := 0;
  151.       BufPos := 0;
  152.       BufExists := false;
  153.       BufToLow := false;
  154.       FillChar(Conv,SizeOf(Conv),0);
  155.       RX_DatenPieps := false;
  156.       User_Name := '';
  157.       NeueZeilen := 0;
  158.       ScrZlnMerk := 0;
  159.       BoxZlnMerk := 0;
  160.       with Mo do
  161.       begin
  162.         MonBeide := false;
  163.         MonActive := false;
  164.         MonDisAbr := false;
  165.         MonHCall := false;
  166.         MonStrict := false;
  167.         MonSignal := false;
  168.         MonIFr := true;
  169.         MonUFr := false;
  170.         MonLast := '';
  171.         for i := 1 to 2 do
  172.         begin
  173.           MonNow[i] := false;
  174.           MonStr[i] := '';
  175.           MonFirst[i] := true;
  176.           MonFrameNr[i] := 0;
  177.           for i1 := 0 to 7 do MonCtrl[i][i1] := 0;
  178.         end;
  179.       end;
  180.       QsoScroll := false;
  181.       AutoBin := true;
  182.       AutoBinOn := true;
  183.       SPlus := true;
  184.       Spl_COR_ERR := false;
  185.       Ext_Poll := false;
  186.       C_Poll := false;
  187.       DieBoxPW := '';
  188.       DBoxScaned := false;
  189.       SysArt := 0;
  190.       UserArt := 1;
  191.       for i := 0 to maxSCon do SCon[i] := false;
  192.       ChkLstOpen := false;
  193.       FillChar(BoxStr,SizeOf(BoxStr),0);
  194.       FillChar(Rubrik,SizeOf(Rubrik),0);
  195.       FillChar(RunRub,SizeOf(RunRub),0);
  196.       NewChkLst := 0;
  197.       BoxScroll := false;
  198.       ChecksSorted := false;
  199.       PassRetry := 1;
  200.       PassRight := 1;
  201.       RxComp := false;
  202.       TxComp := false;
  203.       CompZeile := '';
  204.       TncAkt := 0;
  205.       TncNix := false;
  206.       Kopieren := 0;
  207.       WishBuf := false;
  208.       NoCurJump := false;
  209.       use_RomLw := false;
  210.       GrtFlag := false;
  211.       EigFlag := false;
  212.       FileFlag := false;
  213.       RemFlag := false;
  214.     End;
  215.   End;
  216.  
  217.   if Kanal = 99 then  { globale Variablen intialisieren..(keine Kanalvariablen)}
  218.   begin
  219.     for i := 1 to maxArrayTNC do TNC_used[i] := false;
  220.     maxLink := 0;
  221.     Tnc_Anzahl := 0;
  222.     Mon_Anz := 0;
  223.     MPort := 0;
  224.     FirstA := false;
  225.     QRT := false;
  226.     FreiKanal := 0;
  227.     show := 0;
  228.     ShowMerk := 0;
  229.     maxPath := 0;
  230.     Unproto := 1;
  231.     TopBox := true;
  232.     NeuCall := '';
  233.     RemoteCall := '';
  234.     LastInfoCount := 0;
  235.     LastInfoFlag := false;
  236.     HistoryCount := 0;
  237.     Del := false;
  238.     FillChar(G^.Leer[1],80,B1);
  239.     G^.Leer[0] := Chr(80);
  240.     notScroll := false;
  241.     ZeigeRET := false;
  242.     Aufwaerts := false;
  243.     for i := 7 to 15 do
  244.     begin
  245.       G^.Fstr[i] := '';
  246.       G^.Fstx[i] := 1;
  247.     end;
  248.     FirstConCh := 1;
  249.     ch_aus := false;
  250.     CNr       := 0;     { Anzahl Connects auf 0 setzen, danach Wert lesen }
  251.     WBox     := '';
  252.     WCall    := '';
  253.     LaufZeit := 0;
  254.     Poll := 0;
  255.     PollTnr := 1;
  256.     PollRate := 5;
  257.     TNC_ReadOut := false;
  258.     JumpRxScr := true;
  259.     JumpRxZaehl := 5;
  260.     Win_Rout := false;
  261.     Win_Time := 5;
  262.     Box_Time := 10;
  263.     BoxZaehl := 10;
  264.     NowCurBox := false;
  265.     Priv_PassWord  := '';
  266.     D_Spalte := 1;
  267.     Time_stamp := false;
  268.     PacOut := false;
  269.     Resync_Z := 0;
  270.     Nodes_Change := false;
  271.     Old_active_TNC := 0;
  272.     Klingel := true;
  273.     CtrlBeep := true;
  274.     _VGA := false;
  275.     ScreenSTBY := false;
  276.     TNC_K := false;
  277.     Ausgabe := true;
  278.     VDisk := '';
  279.     use_Vdisk := true;
  280.     RomDisk := '';
  281.     Rom_Exists := false;
  282.     Print := false;
  283.     for i := 1 to 4 do LPT_Base[i] := LPT_PORTs[i];
  284.     LPT_vorhanden := false;
  285.     PrtPort := 1;
  286.     PrtFailure := false;
  287.     morsen := false;
  288.     MPause  := 50;
  289.     HardCur := false;
  290.     Gross := true;
  291.     minTncBuf := 200;
  292.     maxTncBuf := minTncBuf - 50;
  293.     NowFenster := false;
  294.     ScrollVor := false;
  295.     BlTon := false;
  296.     XL := 0;
  297.     XR := 0;
  298.     ParmAnz := 0;
  299.     ParmPos := 254;
  300.     G^.C1_Ton := 800;
  301.     G^.C1_TonTime := 100;
  302.     G^.C2_Ton := 1200;
  303.     G^.C2_TonTime := 100;
  304.     G^.Alarm_Freq := 1200;
  305.     G^.Alarm_Time := 20;
  306.     G^.RxPiepFreq := 1300;
  307.     G^.RxPiepTime := 50;
  308.     G^.TxPiepFreq := 400;
  309.     G^.TxPiepTime := 30;
  310.     G^.RemPiepFreq := 600;
  311.     G^.RemPiepTime := 400;
  312.     G^.PopFreq := 1400;
  313.     G^.PopFreqTime := 30;
  314.     G^.CTRL_G_Freq := 880;
  315.     G^.CTRL_G_Time := 80;
  316.     G^.C_Freq1 := 1200;
  317.     G^.C_Delay1 := 30;
  318.     G^.C_Freq2 := 900;
  319.     G^.C_Delay2 := 40;
  320.     G^.TonHoehe := 1300;
  321.     G^.BLockAnfFreq := 700;
  322.     G^.BLockEndFreq := 350;
  323.     G^.BlockPiep1Time := 10;
  324.     G^.BlockPiep2Time := 10;
  325.     for i := 1 to 4 do NrStat[i] := i;
  326.     Eig_Mail_Zeile := '';
  327.     TNC_Halt := false;
  328.     polling := true;
  329.     IrqMask := 0;
  330.     XCP := 1;
  331.     Color := false;
  332.     EMS_Pages_Ins := 0;
  333.     File_Frame_max := 20;
  334.     Pseudo := false;
  335.     ConvHilfsPort := 0;
  336.     ReconMorsen := false;
  337.     ConMorsen := false;
  338.     ReconVoice := false;
  339.     ConVoice := false;
  340.     MonID := 1;
  341.     ShTab_Pressed := false;
  342.     Braille80 := false;
  343.     ZeitArt := 'MEZ';
  344.     ZeitDiff := 0;
  345.     UseUTC := false;
  346.     TagOver := false;
  347.     ScreenInit := 5;
  348.     GesamtNotCh := 0;
  349.     GesamtVorCh := 0;
  350.     PortStufe := 0;
  351.     volle_Breite := false;
  352.     Vor_im_EMS := false;
  353.     use_EMS := false;
  354.     use_XMS := false;
  355.     Speek := false;
  356.     VSpeed := 40;
  357.     UeberNr := '';
  358.     SwapXms := false;
  359.     SwpHandle := 0;
  360.     SizeHeap := 0;
  361.     KeyDelay := 9;
  362.     GlobalTrenn := false;
  363.     BinOut := false;
  364.     Ins := true;
  365.     HighCol := false;
  366.     Kbd := 0;
  367.     TimeOut := 0;
  368.     HD_was_Active := false;
  369.     AnyConnect := false;
  370.     SortMhNr := 3;
  371.     Cursor_on := false;
  372.     CurX := 1;
  373.     CurY := 1;
  374.     DateiInfo := 0;
  375.     SSAV := 0;
  376.     WishBoxLst := false;
  377.     WishDXC := false;
  378.     KillEsc := false;
  379.     WCTRL := true;
  380.     LogArt := 1;
  381.     Upload := false;
  382.     K_Record_on_Heap := false;
  383.     QRT_Text := false;
  384.     WeekDayStr := '';
  385.     WochenTag := '';
  386.     SynchError := false;
  387.     OverRun := false;
  388.     ColMon := 0;
  389.     MonCode5 := false;
  390.     HD_Read := 0;
  391.     KStat := false;
  392.     KStatTr := ' ';
  393.     ZlnMerk := false;
  394.     NoBinMon := true;
  395.     RX_TX_Win := false;
  396.     SplCountLines := false;
  397.     BiosOut := false;
  398.     MhKill := false;
  399.     AltQFlag := false;
  400.     HoldDXc := false;
  401.     HoldDXcStr := '';
  402.     G^.PromptStr := '%05 de %08 (%12)>';
  403.     G^.TabStr := '';
  404.     maxMH := 25;
  405.     KeyCheck := false;
  406.     RecCheck := true;
  407.     for i := 1 to 10 do G^.SETL[i] := 7;
  408.     SETNr := 1;
  409.     TicAnz := 0;
  410.     ModMonFr := false;
  411.     WeFlag := false;
  412.     DirScroll := false;
  413.     KeyOpt := 0;
  414.     EraseChk := 0;
  415.     LogChk := 0;
  416.     SiDis := false;
  417.     SiDel := false;
  418.     TabFill := false;
  419.     MoniStaAnz := 0;
  420.     Idle := false;
  421.     Idle_Pos := true;
  422.     Idle_Anz := 10;
  423.     Idle_Count := 0;
  424.     Idle_Tout := 20;
  425.     Idle_TCount := 0;
  426.     Idle_TMerk := 0;
  427.     DelayCor := 1;
  428.     LockInt := false;
  429.     SynchErrAnz := 0;
  430.   end;
  431. End;
  432.